Introdução

Objetivo: analisar o tamanho e características empréstimos e subsídios Chineses, notadamente, na América do Sul entre 2000 - 2014.

Desafio: we find that 50% of China’s lending to developing countries is not reported to the IMF or World Bank. (HORN; REINHART.; TREBESCH, 2015:7).

Coleta e Análise dos Dados

Dreher, A., Fuchs, A., Parks, B.C., Strange, A. M., & Tierney, M. J. (2017). Aid, China, and Growth: Evidence from a New Global Development Finance Dataset. AidData Working Paper #46. Williamsburg, VA: AidData.

"This dataset tracks the known universe of overseas Chinese official finance including foreign aid and other forms of concessional and non-concessional state financing — from China to 138 countries between 2000 and 2014.

Apresentaremos os dados sob a forma de estatística descritiva e mobilizaremos algumas medidas de Análise de Redes.

First, let’s load the packages:

dados_cross_bid <- here("static/files/dados.cross.csv") %>% 
  read_csv()

dados_GCOF <- here("static/files/GlobalChineseOfficialFinanceDataset_v1.0.xlsx") %>% 
  read_xlsx()

Do total das 5466 observações salienta-se que 4235 projetos (77.48%) não tem identificação da origem do financiamento sob o rótulo Unspecified Chinese Government Institution. No entanto, dos projetos que a origem dos recursos podem ser identificados três stakeholders podem ser destacados: Export-Import Bank of China (765), China Development Bank (208), e Chinese Embassy/Consulate (71). O gráfico 1 apresenta o conjunto de entidades que financiaram acima de 5 projetos.

t <-table(dados_GCOF$funding_agency_1)
t <- as.data.frame(t)

t1 <- t %>% 
  filter(Freq %in% (5:765))

t1 %>% 
mutate(Var1 = fct_reorder(Var1, Freq)) %>%
ggplot() +
 aes(x = Var1, weight = Freq) +
 geom_bar(fill = "#0c4c8a") +
 coord_flip() +
 labs(x = " ", y = "Número de projetos", title = "Número de projetos por agencia financiadora", caption = "Elaborado pelo autor. Fonte: Global Chinese Official Finance Dataset") +
 theme_classic(base_size = 10)

A mesma dificuldade de rastreamento ocorre para a identificação dos implementadores sendo possível nomeá-los em apenas 1409 projetos. O Gráfico 2 apresenta esses resultados.

t2 <-table(dados_GCOF$implementing_agency_1)
t2 <- as.data.frame(t2)

t2 <- t2 %>% 
  filter(Freq %in% (10:765))

t2 %>% 
mutate(Var1 = fct_reorder(Var1, Freq)) %>%
ggplot() +
 aes(x = Var1, weight = Freq) +
 geom_bar(fill = "#0c4c8a") +
 coord_flip() +
 labs(x = " ", y = "Número de projetos ", title = "Número de projetos por implementadores", caption = "Elaborado pelo autor. Fonte: Global Chinese Official Finance Dataset") +
 theme_classic(base_size = 10)

Cabe considerar que, consideradas apenas as operações sem identificação de financiamento, ao rastrear os stakeholders implementadores dos projetos destacamos: i) Confucius Institute (31), ii) Shanghai Construction Group General Co (22) e iii) Chinese Embassy (20). A tabela 1 informa quais atores que mais implementaram projetos na categoria dos financiamentos não passíveis de rastreamento.

t3 <- dados_GCOF %>% 
  filter(funding_agency_1 == "Unspecified Chinese Government Institution") %>% # apenas os financiamentos não identificados
  select(implementing_agency_1) # apenas a coluna de stk que implementaram

t4 <-table(t3)

t4 <- as.data.frame(t4)

datatable(t4)

440 dos 5466 projetos tiveram a a “Latin America and the Caribbean” como destido. Abaixo a distribuição o anual dos projetos na região

p1 <- dados_GCOF %>%
 filter(recipient_region %in% "Latin America and the Caribbean") %>%
 ggplot() +
 aes(x = year, fill = sector) +
 geom_histogram(bins = 57L) +
 labs(x = " ", y = "", title = "Número de projetos por ano e setor", caption = "Elaborado pelo autor. Fonte: Global Chinese Official Finance Dataset") +
 scale_fill_hue() +
 theme_classic(base_size = 10) +
 facet_wrap(vars(recipient_region))

ggplotly(p1)

Sobre a distribuição dos projetos por países setores na região “Latin America and the Caribbean”.

tab1 <- cbind(dados_GCOF$recipient_condensed, dados_GCOF$recipient_region, dados_GCOF$sector)

tab1 <- as.data.frame(tab1)

tab1 <- tab1 %>% 
        filter(V2 %in% "Latin America and the Caribbean")
 
tab1.tab <- table(tab1)

tab1.tab <- as.data.frame(tab1.tab)

cc1 <- ggplot(tab1) +
 aes(x = V1) +
 geom_bar() +
 scale_fill_hue() +
 coord_flip() +
 theme_minimal()


cc2 <- ggplot(tab1) +
  aes(x = V1, fill = V3) +
  geom_bar(position = "fill") +
  scale_fill_hue() +
  coord_flip() +
  theme_minimal()

cc1 / cc2